VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClassDescriptor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit


Public name As String
Public fullName As String
Public names As New Collection
Public hasSetup As Boolean
Public hasTearDown As Boolean
Public hasNumOfAsserts As Boolean

Public Sub init(project As String, name As String)
Me.name = name
Me.fullName = project & "." & name
End Sub
Public Sub add(name As String)
names.add name
End Sub
Private Sub Class_Initialize()
hasSetup = False
hasTearDown = False
hasNumOfAsserts = False
End Sub
